// Copyright (c) 2011-2016 The Bitcoin Core developers
// Distributed under the MIT software license, see the accompanying
// file COPYING or http://www.opensource.org/licenses/mit-license.php.

#include <qt/addresstablemodel.h>

#include <cashaddrenc.h>
#include <interfaces/node.h>
#include <key_io.h>
#include <qt/guiutil.h>
#include <qt/walletmodel.h>
#include <wallet/wallet.h>

#include <algorithm>

#include <QDebug>
#include <QFont>

const QString AddressTableModel::Send = "S";
const QString AddressTableModel::Receive = "R";

struct AddressTableEntry {
    enum Type {
        Sending,
        Receiving,
        /* QSortFilterProxyModel will filter these out */
        Hidden
    };

    Type type;
    QString label;
    QString address;

    AddressTableEntry() {}
    AddressTableEntry(Type _type, const QString &_label,
                      const QString &_address)
        : type(_type), label(_label), address(_address) {}
};

struct AddressTableEntryLessThan {
    bool operator()(const AddressTableEntry &a,
                    const AddressTableEntry &b) const {
        return a.address < b.address;
    }
    bool operator()(const AddressTableEntry &a, const QString &b) const {
        return a.address < b;
    }
    bool operator()(const QString &a, const AddressTableEntry &b) const {
        return a < b.address;
    }
};

/* Determine address type from address purpose */
static AddressTableEntry::Type
translateTransactionType(const QString &strPurpose, bool isMine) {
    AddressTableEntry::Type addressType = AddressTableEntry::Hidden;
    // "refund" addresses aren't shown, and change addresses aren't in
    // mapAddressBook at all.
    if (strPurpose == "send") {
        addressType = AddressTableEntry::Sending;
    } else if (strPurpose == "receive") {
        addressType = AddressTableEntry::Receiving;
    } else if (strPurpose == "unknown" || strPurpose == "") {
        // if purpose not set, guess
        addressType = (isMine ? AddressTableEntry::Receiving
                              : AddressTableEntry::Sending);
    }
    return addressType;
}

// Private implementation
class AddressTablePriv {
public:
    QList<AddressTableEntry> cachedAddressTable;
    AddressTableModel *parent;

    AddressTablePriv(AddressTableModel *_parent) : parent(_parent) {}

    void refreshAddressTable(interfaces::Wallet &wallet) {
        cachedAddressTable.clear();
        for (const auto &address : wallet.getAddresses()) {
            AddressTableEntry::Type addressType = translateTransactionType(
                QString::fromStdString(address.purpose), address.is_mine);
            cachedAddressTable.append(AddressTableEntry(
                addressType, QString::fromStdString(address.name),
                QString::fromStdString(EncodeCashAddr(
                    address.dest, parent->walletModel->getChainParams()))));
        }
        // std::lower_bound() and std::upper_bound() require our
        // cachedAddressTable list to be sorted in asc order Even though the map
        // is already sorted this re-sorting step is needed because the
        // originating map is sorted by binary address, not by base58() address.
        std::sort(cachedAddressTable.begin(), cachedAddressTable.end(),
                  AddressTableEntryLessThan());
    }

    void updateEntry(const QString &address, const QString &label, bool isMine,
                     const QString &purpose, int status) {
        // Find address / label in model
        QList<AddressTableEntry>::iterator lower = std::lower_bound(
            cachedAddressTable.begin(), cachedAddressTable.end(), address,
            AddressTableEntryLessThan());
        QList<AddressTableEntry>::iterator upper = std::upper_bound(
            cachedAddressTable.begin(), cachedAddressTable.end(), address,
            AddressTableEntryLessThan());
        int lowerIndex = (lower - cachedAddressTable.begin());
        int upperIndex = (upper - cachedAddressTable.begin());
        bool inModel = (lower != upper);
        AddressTableEntry::Type newEntryType =
            translateTransactionType(purpose, isMine);

        switch (status) {
            case CT_NEW:
                if (inModel) {
                    qWarning() << "AddressTablePriv::updateEntry: Warning: Got "
                                  "CT_NEW, but entry is already in model";
                    break;
                }
                parent->beginInsertRows(QModelIndex(), lowerIndex, lowerIndex);
                cachedAddressTable.insert(
                    lowerIndex,
                    AddressTableEntry(newEntryType, label, address));
                parent->endInsertRows();
                break;
            case CT_UPDATED:
                if (!inModel) {
                    qWarning() << "AddressTablePriv::updateEntry: Warning: Got "
                                  "CT_UPDATED, but entry is not in model";
                    break;
                }
                lower->type = newEntryType;
                lower->label = label;
                parent->emitDataChanged(lowerIndex);
                break;
            case CT_DELETED:
                if (!inModel) {
                    qWarning() << "AddressTablePriv::updateEntry: Warning: Got "
                                  "CT_DELETED, but entry is not in model";
                    break;
                }
                parent->beginRemoveRows(QModelIndex(), lowerIndex,
                                        upperIndex - 1);
                cachedAddressTable.erase(lower, upper);
                parent->endRemoveRows();
                break;
        }
    }

    int size() { return cachedAddressTable.size(); }

    AddressTableEntry *index(int idx) {
        if (idx >= 0 && idx < cachedAddressTable.size()) {
            return &cachedAddressTable[idx];
        } else {
            return nullptr;
        }
    }
};

AddressTableModel::AddressTableModel(WalletModel *parent)
    : QAbstractTableModel(parent), walletModel(parent) {
    columns << tr("Label") << tr("Address");
    priv = new AddressTablePriv(this);
    priv->refreshAddressTable(parent->wallet());
}

AddressTableModel::~AddressTableModel() {
    delete priv;
}

int AddressTableModel::rowCount(const QModelIndex &parent) const {
    Q_UNUSED(parent);
    return priv->size();
}

int AddressTableModel::columnCount(const QModelIndex &parent) const {
    Q_UNUSED(parent);
    return columns.length();
}

QVariant AddressTableModel::data(const QModelIndex &index, int role) const {
    if (!index.isValid()) {
        return QVariant();
    }

    AddressTableEntry *rec =
        static_cast<AddressTableEntry *>(index.internalPointer());

    if (role == Qt::DisplayRole || role == Qt::EditRole) {
        switch (index.column()) {
            case Label:
                if (rec->label.isEmpty() && role == Qt::DisplayRole) {
                    return tr("(no label)");
                } else {
                    return rec->label;
                }
            case Address:
                return rec->address;
        }
    } else if (role == Qt::FontRole) {
        QFont font;
        if (index.column() == Address) {
            font = GUIUtil::fixedPitchFont();
        }
        return font;
    } else if (role == TypeRole) {
        switch (rec->type) {
            case AddressTableEntry::Sending:
                return Send;
            case AddressTableEntry::Receiving:
                return Receive;
            default:
                break;
        }
    }
    return QVariant();
}

bool AddressTableModel::setData(const QModelIndex &index, const QVariant &value,
                                int role) {
    if (!index.isValid()) {
        return false;
    }
    AddressTableEntry *rec =
        static_cast<AddressTableEntry *>(index.internalPointer());
    std::string strPurpose =
        (rec->type == AddressTableEntry::Sending ? "send" : "receive");
    editStatus = OK;

    if (role == Qt::EditRole) {
        CTxDestination curAddress = DecodeDestination(
            rec->address.toStdString(), walletModel->getChainParams());
        if (index.column() == Label) {
            // Do nothing, if old label == new label
            if (rec->label == value.toString()) {
                editStatus = NO_CHANGES;
                return false;
            }
            walletModel->wallet().setAddressBook(
                curAddress, value.toString().toStdString(), strPurpose);
        } else if (index.column() == Address) {
            CTxDestination newAddress = DecodeDestination(
                value.toString().toStdString(), walletModel->getChainParams());
            // Refuse to set invalid address, set error status and return false
            if (boost::get<CNoDestination>(&newAddress)) {
                editStatus = INVALID_ADDRESS;
                return false;
            }
            // Do nothing, if old address == new address
            else if (newAddress == curAddress) {
                editStatus = NO_CHANGES;
                return false;
            }
            // Check for duplicate addresses to prevent accidental deletion of
            // addresses, if you try to paste an existing address over another
            // address (with a different label)
            if (walletModel->wallet().getAddress(
                    newAddress, /* name= */ nullptr, /* is_mine= */ nullptr,
                    /* purpose= */ nullptr)) {
                editStatus = DUPLICATE_ADDRESS;
                return false;
            }
            // Double-check that we're not overwriting a receiving address
            else if (rec->type == AddressTableEntry::Sending) {
                // Remove old entry
                walletModel->wallet().delAddressBook(curAddress);
                // Add new entry with new address
                walletModel->wallet().setAddressBook(
                    newAddress, value.toString().toStdString(), strPurpose);
            }
        }
        return true;
    }
    return false;
}

QVariant AddressTableModel::headerData(int section, Qt::Orientation orientation,
                                       int role) const {
    if (orientation == Qt::Horizontal) {
        if (role == Qt::DisplayRole && section < columns.size()) {
            return columns[section];
        }
    }
    return QVariant();
}

Qt::ItemFlags AddressTableModel::flags(const QModelIndex &index) const {
    if (!index.isValid()) {
        return Qt::NoItemFlags;
    }
    AddressTableEntry *rec =
        static_cast<AddressTableEntry *>(index.internalPointer());

    Qt::ItemFlags retval = Qt::ItemIsSelectable | Qt::ItemIsEnabled;
    // Can edit address and label for sending addresses, and only label for
    // receiving addresses.
    if (rec->type == AddressTableEntry::Sending ||
        (rec->type == AddressTableEntry::Receiving &&
         index.column() == Label)) {
        retval |= Qt::ItemIsEditable;
    }
    return retval;
}

QModelIndex AddressTableModel::index(int row, int column,
                                     const QModelIndex &parent) const {
    Q_UNUSED(parent);
    AddressTableEntry *data = priv->index(row);
    if (data) {
        return createIndex(row, column, priv->index(row));
    } else {
        return QModelIndex();
    }
}

void AddressTableModel::updateEntry(const QString &address,
                                    const QString &label, bool isMine,
                                    const QString &purpose, int status) {
    // Update address book model from Bitcoin core
    priv->updateEntry(address, label, isMine, purpose, status);
}

QString AddressTableModel::addRow(const QString &type, const QString &label,
                                  const QString &address,
                                  const OutputType address_type) {
    std::string strLabel = label.toStdString();
    std::string strAddress = address.toStdString();

    editStatus = OK;

    if (type == Send) {
        if (!walletModel->validateAddress(address)) {
            editStatus = INVALID_ADDRESS;
            return QString();
        }
        // Check for duplicate addresses
        if (walletModel->wallet().getAddress(
                DecodeDestination(strAddress, walletModel->getChainParams()),
                /* name= */ nullptr, /* is_mine= */ nullptr,
                /* purpose= */ nullptr)) {
            editStatus = DUPLICATE_ADDRESS;
            return QString();
        }
    } else if (type == Receive) {
        // Generate a new address to associate with given label
        CPubKey newKey;
        if (!walletModel->wallet().getKeyFromPool(false /* internal */,
                                                  newKey)) {
            WalletModel::UnlockContext ctx(walletModel->requestUnlock());
            if (!ctx.isValid()) {
                // Unlock wallet failed or was cancelled
                editStatus = WALLET_UNLOCK_FAILURE;
                return QString();
            }
            if (!walletModel->wallet().getKeyFromPool(false /* internal */,
                                                      newKey)) {
                editStatus = KEY_GENERATION_FAILURE;
                return QString();
            }
        }
        walletModel->wallet().learnRelatedScripts(newKey, address_type);
        strAddress = EncodeCashAddr(GetDestinationForKey(newKey, address_type),
                                    walletModel->getChainParams());
    } else {
        return QString();
    }

    // Add entry
    walletModel->wallet().setAddressBook(
        DecodeDestination(strAddress, walletModel->getChainParams()), strLabel,
        (type == Send ? "send" : "receive"));
    return QString::fromStdString(strAddress);
}

bool AddressTableModel::removeRows(int row, int count,
                                   const QModelIndex &parent) {
    Q_UNUSED(parent);
    AddressTableEntry *rec = priv->index(row);
    if (count != 1 || !rec || rec->type == AddressTableEntry::Receiving) {
        // Can only remove one row at a time, and cannot remove rows not in
        // model.
        // Also refuse to remove receiving addresses.
        return false;
    }
    walletModel->wallet().delAddressBook(DecodeDestination(
        rec->address.toStdString(), walletModel->getChainParams()));
    return true;
}

QString AddressTableModel::labelForAddress(const QString &address) const {
    std::string name;
    if (getAddressData(address, &name, /* purpose= */ nullptr)) {
        return QString::fromStdString(name);
    }
    return QString();
}

QString AddressTableModel::purposeForAddress(const QString &address) const {
    std::string purpose;
    if (getAddressData(address, /* name= */ nullptr, &purpose)) {
        return QString::fromStdString(purpose);
    }
    return QString();
}

bool AddressTableModel::getAddressData(const QString &address,
                                       std::string *name,
                                       std::string *purpose) const {
    CTxDestination destination =
        DecodeDestination(address.toStdString(), walletModel->getChainParams());
    return walletModel->wallet().getAddress(destination, name,
                                            /* is_mine= */ nullptr, purpose);
}

int AddressTableModel::lookupAddress(const QString &address) const {
    QModelIndexList lst = match(index(0, Address, QModelIndex()), Qt::EditRole,
                                address, 1, Qt::MatchExactly);
    if (lst.isEmpty()) {
        return -1;
    } else {
        return lst.at(0).row();
    }
}

OutputType AddressTableModel::GetDefaultAddressType() const {
    return walletModel->wallet().getDefaultAddressType();
};

void AddressTableModel::emitDataChanged(int idx) {
    Q_EMIT dataChanged(index(idx, 0, QModelIndex()),
                       index(idx, columns.length() - 1, QModelIndex()));
}
